home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Amiga Plus 2000 #5
/
Amiga Plus CD - 2000 - No. 5.iso
/
Games
/
Demos
/
TalesOfTalmar
/
rexx
/
Quit_TCP_IP.rexx
< prev
next >
Wrap
OS/2 REXX Batch file
|
1999-09-09
|
1KB
|
31 lines
/******************************************************************************************************/
/* Online-Script mit Arexx */
/* © by Martin Wolf / Eternity Hard & Software */
/* First Bit set: 03.05.1998 */
/* Last Bit set : */
/* */
/* */
/* Version 1.01 : Env-Var wird jetzt abgefragt */
/* */
/******************************************************************************************************/
OPTIONS RESULTS
ADDRESS COMMAND
IF (OPEN('EnvVar','ToTDemo1:Data/MiamiDeja','R')) THEN
DO
IF ~(READCH('EnvVar',1)) THEN
DO UNTIL SHOW('P','MIAMI.1') /* Auf Miami warten */
SIGNAL OFF ERROR
'WaitForPort MIAMI.1'
SIGNAL ON ERROR
miamiport = MIAMI.1 /* ist auf jeden Fall der aktive Port */
ADDRESS (miamiport)
QUIT
END
CLOSE('EnvVar')
END
EXIT